home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / c / zilog / zilog_it.s < prev    next >
Text File  |  1996-04-07  |  471b  |  29 lines
  1. ;
  2. ;
  3. ;    Sub-routine to handle characters received under IT
  4. ;
  5.  
  6.         EXPORT    ItSubRoutine
  7.         IMPORT    Echange
  8.         
  9. SCC_CONTROLB    equ    $FFFF8C85
  10. SCC_DATAB    equ    $FFFF8C87
  11. ACQ        equ    $38
  12. WR0        equ    0
  13.  
  14. ItSubRoutine:    move.l    d0,-(sp)
  15.  
  16.         move.b    #WR0,SCC_CONTROLB.w
  17.         move.b    SCC_CONTROLB.w,d0
  18.         andi.b    #1,d0
  19.         beq.s    Sortir
  20.         move.b    SCC_DATAB.w,d0
  21.         ext.w    d0
  22.         move.w    d0,Echange
  23.  
  24. Sortir:        move.b    #WR0,SCC_CONTROLB.w
  25.         move.b    #ACQ,SCC_CONTROLB.w
  26.  
  27.         movem.l    (sp)+,d0    
  28.         rte
  29.